Top 10k strings from 3D Plotter (1984)(Ziga Turk)(si).z80
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
2 CALCULATION 1 zgm=(fzgm-127 1 yp=l3*x+m3*y+n3*z*ze 1 xp=l2*x+m2*y 1 with visability 1 spm=(fspm-127 1 risanje z mrezo 1 fzgm=(zgm*mer+127 1 fzgm=(fzgm 1 fspm=(spm*mer+127 1 fspm=(fspm 1 draw parameters 1 calculation of plot 1 calculat. for rotation 1 c.s. parameters 1 PRESS CONTINUE 1 PLOT & hidden line 1 From y=";yf; " to y=";yt 1 Enter function 1 ;'" O P T I O N S 1 ;'" 3D: Z=Z( R(X) ) 1 ;'" 3D plotter 1 ;"Z AXIS EXPANSION";ze 1 ;"With hiding invisable parts 1 ;"UNIT='PIKSELS' >";en 1 ;"ORIGIN OF COORDINATE SYSTEM 1 ;"COORDINATE SYSTEM ROTATION ANGLS";"25,-90 and 70 sugested"'K(1 1 ;" 3D: Z=Z(X,Y) 1 3D-GRAPHS z=f(x,y) 1 3D PLOTTER 1 *(fzgm>255 1 )*fzgm+255 1 (iy+yp*en+.5 1 (ix+xp*en+.5 1 '" r RUN [ you can hit yust enter 1 '" f functon input" 1 '" 2 to draw 2D function" 1 '" 2D: Z=Z(r) [ testing mode ] " 1 & LIST 1060 for 1 "Z axis expansion ( z=z*"; 1 "Web density according to the function > "; 1 "Web density according to 1 "WEB DENSITY ACCORDING TO THE FUNCTION (x,y) >";stx,,sty 1 "R from ";spm;" to ";zgm 1 "NAME:";b$: 1 "Line density according to the function > "; 1 "How many pixels is a unit ?";mer 1 "From x=";xf; " to x=";xt 1 "FINISHING AT z=0 (y/n) >";q$ 1 "F(r)=";f$: 1 "'y' of c.s. origin (0-175)>"; 1 "'"f(x,y)=";f$: 1 " s START drawing" 1 " d draw parameter input" 1 " c coordinate system input" 1 " & when drawing finished: 1 z-COPY,s-SAVE,e-EXIT" 1 in all inputs here ]" 1 in 256*176 (x,y)> "'ix,iy 1 function >";stx 1 f(r) = ";f$ 1 by Turk Ziga " 1 (y/n)>";d$